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BBBBBBBB 000000 000000 TTTTTTTTTT DDODDDDDD RRRRRRRR HII! VV VV RRRRRRRR 

BBBBBBBB 000000 000000 TTTTTTTTTT DDDDDDDD RRRRRRRR III VV VV RRRRRRRR 

BB BB 00 00 00 TT DOD DD RR RR I] VV VV RR RR 

BB BB 00 00 00 00 TT DD DD RR RR II VV VV RR RR 

BB BB 00 00 00 00 TT DD DD RR RR I] VV VV RR RR 

8B BB 00 00 of 00 TT DD DD RR RR I] VV VV RR RR 

BBBBBBBB 00 00 00 00 TT DD DD RRRRRRRR II VV VV RRRRRRRR 

BBBBBBBB 00 00 00 00 TT DD DD RRRRRRRR I] VV VV RRRRRRRR 

6B BB 00 00 00 00 TT DD DD RR RR II VV VV RR RR 

8B BB 00 00 00 00 TT DD DD RR RR I] VV VV RR RR 

8B BB 00 00 00 00 TT DD DD RR RR i] vv vv RR RR eee 
8B BB 00 00 TT DD DD RR RR I] vw VW RR RR eeee 
BBBBBBBB 000000 00000 TT DDDDDDDD RR RR IIIIII VV RR RR eoee 
BBBBBBBB 000000 000000 TT DDDDDDDD RR RR HII] VV RR RR eee 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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| 
FACILITY: | 

Minimal bootstrap driver for all VMS system disks. 
ENVIRONMENT: 


Runs at IPL 31, kernel mode, memory management may be on or off, 
I1S=1 (running on interrupt stack), code must be PIC. 


ABSTRACT: 


This module contains a routine called BOOSQIO that handles 1/0 
transfers to and from the VMS system disks. 


AUTHOR: | 
The VMS group 
REVISION HISTORY: 
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v03-011 TCMO00S Trudy C. Matthews 24-Jul-1984 

0 Buse the VMB version number to indicate that the field 

4 RPBSB_CTRLLTR is now being initialized. | 

st v03-010 KPLO101 Peter Lieberwirth 11-Apr-1984 ; 

0 Update VMB version number for wordas ized RPB field. This | 
st should have been done as part of v05-009. 
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P=1984 
v04-000 4-S ety :0 BOOTS. SRC JBOOTDRIVR.MAR; 1 
00 28 3 v03-009 KPLO100 Peter Lieberwirth 12-Feb-1984 
88 3 Change use of RPB$B BOOTNDT. o RPBSW _BOOTNDT. since BI 
88 99 : devices will have 16-bit device types. 
00 6¢ : v03-008 KDM0084 thleen D. Morse 23-Sep-1983 
it 7 ; Add Micro-VAX I t TCPUD ISP. 
0000 65: V03-007 KDM0073 thlee Morse 22-Aug-1983 
0000 66 ; Add EXESGL _TENUSEC ‘and ExesoL -UBDELAY to Ay ixed 
0000 67; data cells used yt e bootstrap drivers. Create 
444 98 : BQO symbols for these data cells. 
$000 % ; V03-006 TCM0004 udy Matthe 02-Aug-1983 
44 f] : Add definition dor E €$GB_ CPUDATA cell. 
0000 te : v03-005 KTA3059 Kerbey T. Altmann 21-Jun-1983 
0000 74; Add entries for unit dtezennect and boot device name - 
4464 ie ; thus bumping VMB version number. 
0000 77: v03-004 RLRCPUDISP Robert L. Rappaport 15-Jun-1983 
it 4 3 Recode CPUDISP macros to use new format. 
0000 80: v03-003 TCM0003 Trudy C. Matthews 23-Feb-1983 
0000 81 ; Increment VMB version number to indicate adding RPB$L_BADPGS 
0000 8 : field. 
0000 83 ; 
0000 84 ; v03-002 TCM0002 rudy C. Matthews 05-Jan-1983 
464 $2 : Add 117790-specific vath to BOOSPURDPR. 
0000 87 : v03-001 KTA0092 Kerbey T. Altmann 02-Apr-1982 
464 He 3 Bump the version number because of KTA0090. 
0000 «90: v02=021 KTA0090 Kerbey T. Altmann 26-Mar-1982 
0000 91 ; Add new cell to IOVEC to contain address of microcode 
0000 38 3 required by a booting device. 
0000 93 ; 
0000 94 j;-- 
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-SBTTL Declarations 


coo 
SS 


0 : 

3; MACRO LIBRARY CALLS 
SBQODEF 3; Define boo he Ae offsets 
SBTDDEF : Define boo types 
SIODEF 3; DEFINE 170" FUNCTION DES 
SMBADEF 3: DEFINE dae rag ae REGISTERS 
SNDTDEF 3: NEXUS device types 
SPRDEF 3; DEFINE PROCESS Ae ect ae 
SPTEDEF ; DEFINE PAGE TABLE ENTRY FIELDS 
SRPBDEF ; DEFINE RESTART PARAMETER BLOCK 
SSSDEF 3; DEFINE STATUS CODES 
SUBADEF § WIGS ae eg A iy. DEFINITIONS 
SUBIDEF : 11/750 UNIBUS copter regs 
SVADEF 3; DEFINE VIRTUAL wt} RESS FIELDS 

: MACROS 


LOCAL SYMBOLS 


SDEFINI BDT Define Boot Driver Table offsets 


SDEF BDOTSL_CPUTYPE .BLKW 1 3: CPU type 

SDEF BDTSL_DEVTYPE -BLKW 1 ; Boot device type 

SDEF BOTSL_ACTION -BLKL 1 : Action routine 

SDEF BOTSL_SIZE -BLKL 1 ; Oriver size 

SDEF BDTSL_ADDR -BLK 1 : Oriver address (offset) 

SDEF BOTSL_ENTRY BLKL 1 : Oriver entry (offset from address) 
SDEF BDTSt _DRIVRNAME .BL 1 ; Driver name (offset from address) 

SDEF BDTSLAUXDRNARE B 1 ; Auxiliary driver name (offset) 

SDEF BOTSL_UNIT_INIT .BLKL 1 ; Driver unit init (offset from address) 
$DEF BOTSL_-UNIT-DISC .BLKL 1 ; Driver unit disc (offset from address) 
SDEF BOTSL-DEVNAME .BLKL 1 3: Device name (offset from address) 


00000028 BDTSK_LENGTH=. Length of entry 


SDEFEND BDT ; End of Boot Driver Table definitions 
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FIXED DATA CELLS FOR BOOTSTRAP DRIVER 


«PSECT BOOTDRIVR_1,LONG ; CERTAIN DRIVERS REQUIRE ALIGNMENT! 
BOOSAL VECTOR: : 3 R TO BOOT DRIVER ENTRY POINTS 
LON BOOSQIO-BOOSAL_VECTOR ; 10 ROUTINE 


. TO BOOTSTRAP Q 
LONG BOOSMAP-BOOSAL VECTOR NG ROUTIN 
-LONG BOOSSELECT-BOOSAL_VECTOR; BOOTSTRAP I/O DRIVER 
: SET TO ROUTINE WHICH 
RIVER 
SYSTEM DISK DRIVER NAME 
RING). SET UP BY BOOT DRIVER. 


The next two words are the version number and the version number check fields. 
(The second word is the ones complement of the first word.) The version 
number should be incremented whenever the interface between VMB and the 

rest of the system changes. Release 1.0 VMB did not contain these fields. 


Version ¢ - Boot driver passes system disk driver name to SYSBOOT 

Version 5 - VMB build memory description vector into RP 

Version 4 = VMB BOOTDRIVR purges UBA buffered datapath, all drivers 
return to BOOTDRIVR with success/failure status 

Version 5 = VMB passes an argument List to the secondary boot 
in AP. FILEREAD cochetng is present. 

Version 6 - VMB posses nexus device type of boot adapter in 
RPB$B_BOOTNDT. 

Version 7 = BOOSAC_VECTOR now has new entry points for RESELECTing 
a driver and UNIT_INIT for a driver. Also new info 
assed in the argument List. 

Version 8 = BOOSAL_VECTOR now has a new cell: BQO0$SL_UCODE. 

Version 9 = VMB passes number of bad memory pages found during 
bootstrap scan in RPBSL_BADPGS. 

Version 10- BOOSAL_VECTOR has two new cells: UNIT_DISC and DEVNAME 


Version 11= BOOSAL_VECTOR has two new cells: TENUSEC and UBDELAY 


Version 12- RPB$W_BOOTNDT is defined, high byte of this word must 
be cleared in SYSBOOT for versions of VMB less than 12. 


Version 13- RPBS$B_CTRLLTR is defined; SYSBOOT must clear this field 
for older versions of VMB. 


00000046' 
0000011D° 
00000000" 


o 
oe 


.LONG 0 ; 


00000000 


-~On--o000< 
> mMZz ATT” 


PAEAASAOSMVUINVIVMMUIUMIUIUIE SELL LESS OF 
ANT SBMA 


0000000 VMB_VERSION = 13 

ASSUME <.-BOOSAL_VECTOR> EQ BQO$W_VERSION 

.WORD  VMB VERSION, “C<VMB VERSIONS ; VERSION # AND VERSION # CHECK FIELD. 
“LONG BOOSRESELECT-BOOSAC VECTOR ; Offset to set new driver 

"LONG BOOSMOVE-BOOSAL VECTOR ; Offset to routine to select and move 
ASSUME <.-BOOSAL_VECTOR> £Q BQO$L_UNIT_INIT 

- LONG : Offse€ to UNIT_INIT 

ASSUME <.-BOOSAL_VECTOR> EQ BQO$L_AUXDRNAME 

LONG 0 ; Offset to auxiliary driver name 


FFF2 43 
00000063° 
00000012" 


00000000 
00000000 0 
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4 198 ; second driver 
4 19 eek yASsume <.*BOOSAL_VECTOR> EQ BO0$L UM. Dis. cumaietaes ania 
e tt : Rumbér of map registers disable 
00000000 4 ? . 0 : 
§ ASSUME <.-BOOSAL_VECTOR> EQ Ba0si. UCODE 
BOOSGL_UCODE:: ; Address of microcode in memory 
00000000 4 ; 0 
C 5 ASSUME <.-BOOSAL_VECTOR> EQ BOOSL NIT_DISC 
00000000 $ -LONG 0 6 set to UNIT_DISC 
ASSUME <.-BOOSAL_VECTOR> EQ Boos. DEVN 
00000000 8 «LONG 0 Utiser” to boot device name 
4 0 ASSUME <.-BOOSAL_VECTOR> EQ Boob. UMR_TMPL 
4 0 BOOSGL_UMR_TMPL: ONIB0S map register template 
80000000 0034 11 . LONG ‘ UBASM MAP_VALID * Default is valid, no buff data path 
00 1 ASSUME <.-BOOSAL“VECTOR> EQ Boose UMR 
0 15 BOOSGB_UMR _DP:: ONIB0S. map register data path 
01 Ope 14 -BYTE 1 De veuls is Buffered #1 
039 215 ASSUME <.-BOOSAL_VECTOR> EQ leaks CPUTYP 
0039 16 EXESGB_CPUTYPE:: ; Cocation to hold processor 
01 0039 17 -BYTE 1 ° sdont it icon ten code 
003A 218 ASSUME <.-BOOSAL_VECTOR> EQ Boos. CPUDA 
90000001 88 . } omictecsat ete a eeaktan to hold contents of SID. 
003E A ASSUME <.-BOOSAL_VECTOR> EQ BQO$SL_TENUSEC 
O03E ; EXESGL_TENUSEC:: ; Cocation to hold TIMEDWAIT delay count 
00000001 003 -LONG 1 
004 4 ASSUME <.-BOOSAL_VECTOR> EQ BQOSst UBDELAY 
004 5 EXESGL UBDELAY tt ; Cocation to hold TIMEDWAIT delay count 
00000001 0042 26 -LONG 1 
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~SBTTL B00$Q10 - BOOTSTRAP Q10 ROUTINE 


ptt 
: FUNCTIONAL DESCRIPTION: 


BOOSQIO PROVIDES THE DEVICE INDEPENDENT 1/0 INTERFACE FOR BOTH 
READING AND WRITING THE BOOTSTRAP DEVICE. 


CALLING SEQUENCE: 
CALLG ARGLIST,BOOSQI0 
INPUT PARAMETERS: 


BUF(AP) = BUFFER ADDRESS 
SIZECAP) = SIZE OF BUFFER IN BYTES 
LBNCAP) = LOGICAL BLOCK NUMBER 
FUNCCAP) = FUNCTION CO 
ACCEPTS IO$_READLBLK AND 10$_WRITELBLK 
MODE(AP) = ADDRESS INTERPRETATION MODE 


Q => PHYSICAL, 1 => VIRTUAL 
RPB(AP) = ADDRESS OF RESTART PARAMETER BLOCK 


OUTPUT PARAMETERS: 


RO - COMPLETION STATUS CODE 
R1 = TOTAL BYTES TRANSFERRED 


Offsets from AP to input arguments: 


FUN OOD NA NE WIN  O OD NAU EWN OUWONOAUS UNO 00 


AAAAOMVANMNNNNA EE EPR RR RRR 


SSsssssssssssssssssssssssssssssssssssssssss 


S&F MN CO09G909 GO. G9G9 GOOD D> DS DD DDD DDD AAPA AAA AAA AA AA AA AA AA AA AAA AA AAAS 


00000004 00 BUF = 4 
0000008 004 SIZE = 8 
44 99 04 LBN = 12 
0000001 04 65 FUNC = 16 
oie b Be 6 MODE = 3 
0000018 ° RPB = 24 
04 § B00SQI0:: 
OFFC 4 0 «WORD “M<R2,R3,R4,R5,R6,R7,- ; PRESERVE REGISTERS 
4 71 RB,R9.R10,R11> 
ta 598 
be 74 ; If mapping is enabled, the processor register RP$_MAPEN contains a 1. 
4 75 ; Otherwise, the register contains a 0. Use this value as an index to 
ri 1 ; choose the appropriate address of the adapter’s register space. 
4 78° 
59 18 AC 00 4 7 MOVL RPB(AP) ,R9 3; GET BASE ADDRESS OF RESTART PARAMETER BLK 
51 38 §86020B Be ? MFPR #PRS_MAPEN,R1 ; CHECK FOR MAPPING ENABLED 
4 ASSUME RPBSC_ADPVIR EQ RPBSL ADPPHY +4 
53 5C A941 D0 03 § MOVL RPBSL-ADPPHY(R9)CRIJ,R3 ; GET CORRECT POINTER TO CONFIG REG 
5 4; 


) 
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Vv BO0$O10 = BOOTSTRAP Q10 ROUTINE 46-SEP-1984 23:02: BOOTS .SRCJBOOTDRIVR.MAR; 1 (4) $ 
6 5 ; Using the yee list as input. calculate the transfer size, number | $ 
4 § ; of map registers, starting LBN, starting VPN, and base of a page table { 
4 ; ; to use in mapping. } 
4 ; { 
2 04 AC 0 4 0 MOVL BUF (AP) eh 3; Get buffer address $ 
8 08 AC : 8 291 MOVZWL S126 (APS WR ; GET TRANSFER SIZE IN BYTES i 
0 1 C 35 BNEQ 3 CONTINUE fF LEGAL 31 $ 
>. aw 7 9C 9 ROT #16,#1,R8 : ELSE FORCE TO 64K SIZE e 
57 Sa 09 0 F 006 94 10$:  EXTZv a#vasy BYTE AYASS_BYTE.RID.R i Get byte offset into page | E 
57 O3FF C84 E 006 95 MOVAB “X3FFTR8)CR7I,R ; Calculate highest address plus . 
96D 36 3 an overflow page. E 
57 57) =O F7 BF S78 «(06D 9 ASHL #-9,R7,R7 ; Reduce to number of pages g 
Bfs 38 ; (= number of nee feats ers). | 
58 of AC dO 007 9 MOVL LBN(AP) R11 ; AND BLOCK NUMBER FOR RETRY g 
51 0A9 D0 0076 00 MOVL RPBSL_SVASPT(R9) ,R1 ; ASSUME SYSTEM SPACE | e 
03 2" 1F €0 OQO7A 01 BBS #VASV gis TEA -R10.c08 ; Branch if system address | | 
1 08 0B OO7E 8 MFPR #PRS_POBR,R ; OTHERWISE GET PO PT BASE g 
52 SA 15 O09 EF O81 03 20$: EXTZV #VASU_VPN.AVASS_VPN,R10,R2 ; Get base VPN for transfer ‘ 
66 A9 «91 «0086 = 304 CMPB se RPBSB-DEVTYP(R9T,- ; If booting from console block | g 
20 tH 05 #BTOSR_HSCCI 3 storage device or Cl, e 
67 18 at O6 BGEQ PUSH_RETRY ; don't load map registers | : 
008C 08 ; 8 
8 : ts 3; Register usage right now is as follows: | : 
00 C 1 3 R1 - address of page table for virtual-->physical mapping | 8 
89 C \¢ 3 R - base VPN for the transfer 8 
08C 13 3 R - address of the adapter's configuration register 8 
008C 14 ; R7 = number of map registers needed (plus one extra) 8 
008C 15 ; R8 - transfer size in bytes 8 
008C 16 3 Rg - address of the RPB B 
8 C 17; R10 - buffer address 8 
33 : 18 3 R11 - starting LBN of the transfer : 
008C 20 ; In an adapter-dependent fashion, initialize the required number of a 
008C 1 ; adapter map registers. First calculate the address of the startin map 8 
008C § 3; register number. Right now, map registers for all UNIBUS and MASSBUS | 
08C 3; adapters for all processors start at the same offset from the base of 8 
! : : 3; the adapter's register space. : 
08C § ; During map register initialization, the following registers change 8 
: 3; for each page mapped: : 
C 5 3 R2 - address of the next VPN to map | 
C 0; R4 - address of the next map register to load | 
‘ : RS - PFN of the page being mapped : 
C : g 
C 4 INIT_MAPREGS: : Initialize the map registers. é 
C 5 ASSUME MBASL_MAP EQ UBASL_MAP é 
C § ASSUME MBASL_MAP EQ UBISL MAP ¢ 
54  FF94 CF C MOVL W*BOOSGL_UMR pis RG ; Pick up number of disable UMR's E 
54 0800 (344 } MOVAL MBASL_MAP(R3TCR41,R4 ; Point to first useable map register E 
7 40 COMPUTE _PFN: 3; Loop once per page. E 
55 82 7? 41 MOVAB (R2)+,R5 ; Get a virtual page number. E 


INSV BUF (AP) ,#UBASV_MAP_BO,- ; Set UBA byte offset bit if 
#1,R5 3 necessary. 


t eeeeee NOTE teeee For most devices, always uses Datapath #1, 
3 IOCSPURDPR depends on this!! 


208: BISL3 R5S,BOOSGL_UMR_TMPL,(R4)+; Set PFN and byte offset, valid bit, 
3; and buffered DP number into map. 
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F0-000 BOOSQI0 = BOOTSTRAP Q10 ROUTINE raat $3:60;28 YBoors sre BOOTDRIVR.MAR; 1 . (4) $s 
6A €9 9A 4 BLBC MODE (AP), 108 3 If physical page #, branch. 0 
i 148 dO 9 2g MOVL Can RS} in 3 Get’ pe OG) table entry 0 
55 #200000 8F CCA A af BICL #*C<PTESM_PFN>,RS i and extract PFN from entry 9 
A 46 ; 0 
Ag 13 3; Derive the boot device adapter's ty e (UNIBUS adapter or MASSBUS 0 
Ag rh 3 gceoter: from the RPB, and save a flag indicating the adapter type 0 
AQ 49 ; ina regteter. The sega tagty compl coveg fooling around with both 0 
OA9 50 ; a UMR_DP and UMR_TMPL is to allow flexib pity in what devices desire 0 
Ag 51; in the way of data paths: Only UNIBUS devices will ever even pick up 0 
Ad 26 3 the a « Thus all non-UNIBUS boot devices will never purge 0 
pA : 3 @ data path. UNIBUS devices have a choice: by clearing UMR_DP in | 0 
A 4 ; their UNIT_INIT routines, the boot drivers can elect to not use 0 
OA9 2? 3; the buffered data path. | 0 
OA9 § 3 0 
OAd 5 0 
50 4 QOA9 58 10$: CLRL RO ; Assume not UNIBUS 0 
56 OOA1 & Cc 00 59 MOVZWL RPBSW_BOOTNDT(R9) ,R6 3; Pick up nexus type of boot adapter 0 
56 3 CA 008 60 BICL #3,R6 3; Make canonical adapter type 0 
28 56 B81 008 61 CMPW R6, #NDT$_UBO ; If boot adapter is a UNIBUS, 0 
11 (12 008 6¢ BNEQ 20$ ; then 0 
50 08 08 6 INCL R : Set a flag for later user 0 
FF7A CF OF i 64 INSV BOOSGB_UMR_DP,=- ; Pick up the data path 0 
- 08 65 #UBASV_MAP~DPD ,#2,- 0 
FF71 CF Bae $6 BOOSGL _UMR_TMPL ; and put it in the template 
00C 68 ; 0 
Bae $2 3; This is a UNIBUS adapter. ° 
48 4 3; Map registers for the UNIBUS adapter look Like the following: ° 
bor te: hammer ane one ermee oes Ser seen ese ewe nema cowroa ad | 0 
00C 74 ; :+Vi $680! OP #! { page frame number : 0 
Ope oo 3 tomcenanese aeesans Seas oem e soe o ew ameocen maw assoc an st | 8 
00C 3 3 The code sets the byte offset bit if relevant, sets the valid bit, 0 
00C 78 ; sets the Low bit in the 4-bit data path field to indicate that the 0 
C 79 ; first buffered data path is to be used (if selected). and loads the 0 
C 0 ; page frame number into the low bits. 0 
Cc 13 0 
C § | 0 
19 04 ac FO 00C | 0 
i | 0 
5 0 
§ 0 
0 
: 0 
0 
0 0 
0 
0 
0 
0 
if 
iy 
C 
0 
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91; 
38 3; This is a MASSBUS adapter. 
34 : MASSBUS adapter's map registers look Like the following: 
% : en 
3 3 ivi : page frame number | 
8; $m wen werner nnn n enn wn nnn nseewennennoe= wont 
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eS Prat 
(CF aRY iteeee U 
OCF 4 § 5 BISL3 RS,#MBASM_MAP_VALID,- ; Set the PFN and the valid bit U 
OCF «= 45 ; (R4)+ : in the map register. Vv 
ge gBs ieee 
CF 406° ; Is there another page to do? v 
57 07 a 4 5 DECL R7 :; Decrement # of aep vegisters. Vv 
f/ 16 QOD1 408 BGTR COMPUTE _PFN 3 Lgop to fill next nop register Vv 
0D 409 3; if byte count not exhausted. Vv 
Os ait ; | 
0D 216 > ALL map registers are set up. Set up 2 more inputs to driver code. 
00D 413 ; Since the loaded MBA map registers are registers #0-n, the starting | 
00D 414 ; address of the transfer to be loaded into a device register by the 
00D 415 ; device driver, is now stapty the offset into the first page of the P 
st $18 ; transfer buffer. However, for the UBA, there may be some disabled | « 
OD 417 ; map registers as a result of UNIBUS memory on the UBA. Therefor P 
00D 418 ; the starting address of the transfer must include the lowest enabled $ 
890 419 ; UMR in bits 9-17. 8 
gst 
98 00 EF 00D 4 § EXTZV #VASV_BYTE,AVASS_BYTE,- ; Get byte offset into page | 
A 5A 0006 4 R10,RT0 in R10 | 
sh os | 
‘ | 
0008 426 ; Invalidate the last UBA map register so that a wild transfer will stop 
0008 427 ; at the end of the Last valid block. Get the proper UMR to start with. | 
OOD 439 | : 
10 50 €9 0008 430 BLBC RO, 30$ 3; Skip invalidation for MBA. I 
74 80000000 8F CA OO0DB 431 BICL #UBASM_MAP_VALID,-(R4) : Invalidate Last map register. C 
50 FF3D CF O09 9 Boe 4 ¢ ROTL #9,W*BOOSGC_UMR_DIS,RO ; Form UNIBUS address of UMR P 
=. We OE & BISL RO,R10 ; Set into address register. Ss 
Ooce 33 : 
QOeB 4 § : If it is a UNIBUS boot device, derive the address of the device's CSR. P 
ofp 488” i 
ie 439 ASSUME RPBSL_CSRVIR EQ RPBSL_CSRPHY+4 | ; 
5 DB O0EB 441 30S: MFPR  #PRS_MAPEN,RO ; Check for mapping enabled 1 
57 54 0940 00 3 236 MOVL RPBSC_CSRPHY(R9)CROJ,R7 ; Get address of device's CSR ! 
OF 444 PUSH_RETRY: 1 
OA dD oF ret PUSHL #10 ; Push retry count on stack | 
58 00 OOF 443 10$: MOVL R11,R5 ; Get a working copy of the block number 
50° 34 a9 DO O0FB 448 MOVL RPBsL IOVEC(R9) RO : Get address of boot vectors | 
08 at | 16 OOFC 44 JSB @BQ0 C_SELECT(RO) RO] ; Call driver thru self-relative vector 
1 1 199 450 BBC #UBASV_MAP_DPD,- ; Branch if not using the Buffered 
10 FF2F gf 1 451 BOOSGL_UMR_TMPL ,100$ ; data path 
0 gp 1 3 rt PUSHL 3; Save driver status 
90 A 1 $2 BSBW epoeeynore ; Purge Buffered Datapath for UBA 
0550 € ise 454 BLBS RO, 808 3: Branch if success 
5E » € 10E 455 ADDL #4,SP 3; Clear previous status from stack 
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y if count > 0 
Return with final status in RO 
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FOE 000 BOOSMAP = ROUTINE TO MAP DATA FOR BOOSQ! 2786-1383 33:69:28 BOOTS. SRCJBOOTDRIVR.MAR; 1 et 
11 463 .SBTTL BOOSMAP = ROUTINE TO MAP DATA FOR B00S010 
11D 464 ;¢ 
11D «465 ; FUNCTIONAL DESCRIPTION: 
11D 466: BOOSMAP IS CALLED TO INITIALIZE THE DATA BASE FOR 2ogsat0 TO PERMIT 
11D 467 : IT TO FUNCTION WITH MEMORY MANAGEMENT ENABLED. AREA OF SYSTEM 
11D 468 ; PAGE TABLE MUST BE PROVIDED SO THAT THE CONF 1 GURATION REGISTERS AND 
110 469 ; UNIBUS 1/0 PAGE CAN BE MAPPED. 
11D 471 : CALLING SEQUENCE: 
11 ae ; CALLG ARGLIST,BOOSMAP 
11D 474 : INPUT PARAMETERS: 
ei 110 479 ; SVASPT CAP) - SYSTEM VIRTUAL ADDRESS OF THE SYSTEM PAGE TABLE 
11D re : VABASE(AP) = BASE VIRTUAL ADDRESS OF A 24 PAGE WINDOW TO MAP 
11D 478 ; THE ADAPTER CONFIGURATION REGISTERS AND UNIBUS 
00000008 ab 479 VABASE = nee 
11D 481: RPB(AP) = ADDRESS OF RESTART PARAMETER BLOCK (RPB) CONTAINING 
O11D 4 é ; BOOTSTRAP DEVICE DESCRIPTION. 
0000000 O11D 4 ; RPB = 12 
011D 485 : OUTPUT PARAMETERS: 
011D 486 ; NONE 
011D $3 3 
SB SB8 
OOF C Sib 490 BOOSMAP: : -WORD  “M<R2,R3,R4,R5.R6,R7> 
57 OC AC DO O11F 491 MOVL RPBC(AP),R7 ; GET Base ADDRESS FOR RPB 
52 04 AC DO 0123 49¢ MOVL SVASP TK T(AP) ,R2 : GET BASE OF SP? 
50 A7 52 DO 0127 49 MOVL rtae TSUASPT CR?) : AND SAVE IN DATA BAS 
53 08 AC «(0 (0128 49% MOVL vAAS R3 : GET VIRTUAL ADDRESS OF WINDOW 
60 a7 53) «=O «(O12F «= 495 MOVL APBSL 4m R7) SET AS ADAPTER VIRTUAL ADDRESS 
54 SC A? 13 09 EF 133 49 EXtZv # avis _VPR,AVASS_VPN, RPBsi “SPFPto nae" ice BASE PFN 
50 15 09 EF o13¢ 498 EXTZV ft VPN #VASS_ VPN,R3, rb T BASE VIRTUAL PAGE 
51 6240 DE 0141 499 MOVAL ROI : compuré WORKING SPT POINTER 
20 10 O143 500 BSBB.SéF‘L: ; : FILL SPT T > CONFIGURATION REGS 
55 10 p00 0147 501 MOVL i aS ET FOR 16. PAG : 
54 54 A7 OOOOIFFF 8F CB O14A 0¢ BICL3 A »RPBSL_CSRPHY(R7) .R4 ; GET PHY ADDR OF 1/0 PAGE BASE 
54 54 4«17)2=CO9:s«0153—S «50 ROTL ic3e- RGR RG” : AND CONVERT TO PAGE NUMBER 
10 0157 504 BSBB ; STORE PTES INTO. spr 
50 54 A C 139 05 MOVZWL RPBSt EsRpHY (RZ) GET 1/0 PAGE O 
58 A7 FFFF 3000 E043 be 120 $ + <*x1000-*xE000> tag) RO R3, RPBSL _ESRVIRGR?). 3 ry VIRTUAL CSR ADDR 
oe | 
167 10 + FILLSPT 
167 1 + INPUTS: 
167 513: R1 = POINTER TO CURRENT SPT ENTRY (UPDATED) 
167 514: R4 = PFN (UPDATED) 
167 15 ; R5 = COUNT OF PAGES TO FILL (UPDATED) 
167 i FILLSPT: . 
81 54 90000000 8F c9 0167 518 BISL3 #<PTESM_VALID!PTESC_KW>,R4,(R1)+ ; STORE A PTE 
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- Purge UBA Buffered Datapath 4-SEP-1984 BOOTS.SRCJBOOTDRIVR.MAR; 1 
-SBTTL BOOSPURDPR = Purge UBA Buffered Datapath 


C 
SPUR 


+4 
FUNCTIONAL DESCRIPTION: 
This routine is called by BOOTDRIVR at the end of each boot device 
transfer if the boot device is on the Unibus. It purges the buffered 
datapath and/or performs other Unibus adapter specific end-action. 
NOTE: This routine contains processor specific code. 
CALLING SEQUENCE: 
JSB BOOSPURDPR 
INPUT PARAMETERS: 
R3 - Address of UBA adapter cont tourettes register 
EXESGB™ CPUTYPE = Index spective nes CPU we are * executing on 
*t Assumes all drivers use DATAPATH 1 * 
OUTPUT PARAMETERS: 


RO - LBS => Success 
LBC => Failure 


R1,R2,R4 - Destroyed 
ALC other registers preserved 
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BOOSPURDPR: 
50 01 3C MOVZWL ass NORMAL ,RO 3; Assume success 
CPUDISP << $780. 1008 ee : Dispatch on EXESGB_CPUTYPE 
$3 Rt soem 
6 $3 0 19082 «= 
6 <UV1,170$>>,- ; Nothing to do for Micro-VAX I 
Ht 6 ENVIRON=VMB; 
AB 64 100$: 3 CPU type 11/780 and 11/790: 
52 44 A3 AB 6 MOVAL #ugAs DPR+4(R3) ,R2 ; Get Datapth Register address 
62 gt 1F AF ; ASHL  #UBA 4 Pr BNE #1, (R2) ; Purge dat tapat ath 
1 62 B3 MOVL ; Get Datapt register contents 
09 51 —*1E a B6 | («56 BBC ry =DPR_XMTER.R1,170$ ; Branch if no er 
$6 01 =iI€E 8 BA § ASHL #UBASV-DPR- MATER. ‘1. (R2) ; Clear error in datapath 
5 O1F4 8F 3 ef 150$: MOVZWL #SS$_PARITY,R :'Set failure status 
C i 170$:  RSB 3; Return to caller 
04 A3 oF C4 73 200$: #$MOVAL volte DPR+4(R3),R 3; CPU type 11/750. Datapath Register 
2°* 91 90 (8 «57 ASHL V_DPR_PUR #i? (R2) : Purge Datapat 
4 OA 00 cc , MOVL § #UBISC“PURTNT.R4 © > Get max # of tries tor 
3 purge done te 
3} 3 DO CF 58 230$: MOVL 3 Get datapath register contents 
05 51 E1 De 3 B mei DPR_PUR,R1,250$ ; Branch if purge gone 
F6 54—SO#F 5 D 7 SOBGTR R4,2308 ; Branch if more tries allowed 
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4 11 0109 9 BRB 2708 Return tot lure status 
E4 51 F €1 01DB $308: BBC ] Bisy DPR_ERROR,R1,1708'; oy no purge error 
62 00 OD 1DF § $: MCOML 4#0,(R2T : Clear da apath error(s) 
DA 1 ie Z BRB 3; Return w failure status 
51 10A3 00 HS 5 300$: MOVL UBISL_SR(R3),R1 3 ger partes Error Summary Register 
51 8001C000 BF 03 168 : BITL usignes SR_UWE!= 3; Any UB errors? (write error, 
1EF 3 M_SR_MRPE !- : map parity error, 
1EF UBISM ~SR_NXM!= 3 non-existent memory, 
1EF 0 $M~SR-UCE>,R1 : or uncorrected roee error.) 
D2 13 OEF 3 BEQL $~ : Branch if no erro 
1F1 3 teeeee QUESTION - Is there anything to do to clear the errer status? 
cB. sédCYV \F} + BRB 150$ ; Return failure status 
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FOR BOOTSTRAP 1/0 DRIVERS 
- Purge UBA Buffered Datapath 4-SE 


P=1984 33:60: 
P-1984 23:02: 
$ ALIGN LON 
B00$010S1Z=.-BOOSAL 
BOOSDRIVER==. 


-PSECT BOOTDRIVR_3 
BOOSDRIVER_TBL=. 
-PSECT BOOTORIVR_S 
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End of boot driver table 
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~SBTTL BOOSSELECT = Select boot driver 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine is called the first time BOOSQIO calls a driver. 
It searches the boot driver table to locate the proper driver. 
The correct Linkage is made in BOOSAL_VECTOR. . 

RPBSL_IOVECSZ is also stored with the size of BOO$SQIO plus 

the size of the driver. The driver is then jumped to. 


CALLING SEQUENCE: 


JSB BOOSSELECT ctuat ty called through self-relative 
vector in BOOSAL_VECTOR+BQ0$L_SELECT) 


INPUT PARAMETERS: 


RO Address of the RPB 
OUTPUT PARAMETERS: 
None - 
SOUSSTL Er. 


USHR  #*M<R1,R2,R3,R4,R5,R6> 
BSBB BOOSRESELECT 
POPR #*M<R1,R2,R3,R4,R5,R6> 


: Set up driver vector and jump to driver. 


MOVL  §RPBSL_IOVEC(R9) ,RO 
JMP a@Bao$C_SELECT(RO) CROJ 


; Select the correct driver 


; Get address of vectors 
; Jump to driver 


1 
( 


, 


<o | 


———— OO 


| do .5 
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s e31 -SBTTL BOOSMOVE = Select and move boot driver 
1 p++ 
a 638 3; FUNCTIONAL DESCRIPTION: 
6} g2¢ § This routine is called after VMB is finished with a driver. 
01 $28 3 It searches the boot driver table to locate the proper driver. 
4 tH 3 The correct Linkage is made in BOOSAL_VECTOR and driver moved. 
001 $23 ; CALLING SEQUENCE: 
Bat 661 ; JSB BOOSMOVE thctually called through self-relative 
it oe ; vector in BOOSAL_VECTOR+BQ0$L_MOVE) 
001 664 ; INPUT PARAMETERS: 
001 665 ; 
Bat 066 $ Ro Address of the RPB 
001 668 ; OUTPUT PARAMETERS: 
001 96? 3 
001 670 ; None 
001 671 ; 
001 ore i-- 
001 67 
001 674 BOOSMOVE : 
OOFE 8F 6B 001 675 PUSHR #*M<R1,R2,R3,R4,R5,R6,R7> ; Save registers 
48 10 0016 676 SBB BOOSRESELECT : Select the correct driver 
56 OC B54 9E 001 677 MOVAB @BDTSL_ADDR(RS)CRS5J,R6 ; Address of current position 
54 O1F 4° CF 44 001D 678 MOVA W*BOOSBRIVER,R4 : Address of new position 
57 6 54 ¢3 0022 679 SUBL R4,R6,R7 3; Offset 
24 13 0026 680 BEQL 20% : None, so don't move 
64 08 AS ge 0028 681 MOVC3 BDTSL_SIZE(R5),(R6),(R4); Move driver 
4 QO00°CE 9 99 D 68¢ MOVAB W*BOOSAL_VECTOR.R4 
08 Ad «657 «6C2 «O0032—s 68 SUBL2 R7,BQOSL~SELECT(R4) : Adjust offset 
OC A4 ae 036 684 SUBL R7,BQO$L_DRIVRNAME (R4) 
20 AS OD O3A 685 TSTL BQOSL_AURDRNAME (R4) : Is there one? 
04 +13 0030 $86 BEQL 19 3 No, don;t mess 
20 A4 57 C 003F 6 SUBL2 R7,BQO0$L_AUXDRNAME (R4) 
1C AS 6D Boag 688 10$: TSTL BQOSL_UNTT_INIT(R4) 3; Is there one? 
04 «1 046 689 BEQL 3; No, don;t mess 
1C A4& 57 Ce 0048 690 SUBL2 R7,BQO$L_UNIT_INIT(R4) 
2c AG «0S «(004C) «= 691 208: ~—sTSTL QOSL_UNTT_DISC(R4) : Is there one? 
96 13 O04F O36 BEQL $ 3: No, don;t mess 
2C AS C O3} 69 SUBL2 R7,BQO$L_UNIT_DISC(R4) 
30 A4 OD 55 694 308: TSTL BQOSL_DEDNAMETRS) ; Is there one? 
1 058 95 BEQL $ 3 No, don;t mess 
0 AG 7 C2 OSA 9 SUBL2 R7,BQO$L_DEVNAME(R4) 
OOFE 8F BA 05 697 40$: POPR #°M<R1,RZ2,R5,R4,R5,R6,R7> 
5 6 9 RSB 
%3 5 0 BOOSRESELECT: 
55 OQO00'CF DE 006 701 MOVAL W*BOOSDRIVER_TBL.RS : Get address of boot driver table 
53 $6 A9 9A 68 7 § MOVZBL RPBS$B_DEVTYPTRI) .R3 : Get value of boot device type 
54 00 q 9A oc 7 MOVZBL W*EXESGB_CPUTYPE,R4 ; Get cpu type 
56 O1F4*BF O35 4 4 : MOVZWL #<BOOSDRIVER-BOOSAL_VECTOR>,R6 ; Compute offset to driver table 
76 706 ; Determine if next driver in table is the correct one. 
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9? 1 
20 A451 6 C1 
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2c AGS O11 6 C1 
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05 1 
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40$ 

BDTSL_DEVTYPE(RS) ,RO 
0$ 


RO,R3 
40$ 


BOTSL_ACTION(RS) ,RO 
(R5) CROJ 

RO,60$ 

BOTS SIZE (RS) R6 


#BDTSR_LENGTH,R5S 
108 


BDTSL_CPUTYPE (RS) ,RO 
se 


BQOSL“UNIT_INI 
DTSL-UNIT~INI 


R6,R1,BQ0SL_UNI 


BQOSL_AUXDRNAME (R4) : 
DTSL-AUXDRNAME(RS),R1 : 


0 ° 
R6,R1,BQOSL_AUXDRNAME (R45 


BQOSL_UNIT_DISC(R4) 3 
TSL_UNIT_DISC(RS),R1 


R6,R1,BQOSL_UNIT_DISC(R4S 


BQOSL_DEVNAME (R4) 
BDTSL~DEVNAME (RS) ,R1 


1 
R6,R1,BQOSL_DEVNAME (R4) 


NIT(R4S 
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Get cpu ares from table 

End of table 

Driver doesn't care about cpu type 
Cpu types match? 

No, try next driver 


; Get boot device type from table 
; Driver doesn't care about device type 
; Device types match? 


No, try next driver 


Get action routine offset from table 
No action routine, this is the driver 
Call action routine 

Branch if this is the driver 

Account for this driver's size 

Point to next driver entry 

Try next driver 


Have the right driver. R5 points to driver table entry. R6 contains 
from IOVEC to the start of the driver. Update 


Cover the vector 

Add boot Q10 size to 

driver size 

and store in RPB 

Calc offset to driver 

entry point and store in vector 
Calc offset to driver 

name and store in vector 
Assume none 
Pick up possible UNIT_INIT entr 
None specified, default to a RE 
sCale offset to driver 

UNIT_INIT point and store in vector 


: Assume none 


Pick up possible driver name 
None specified, default to a zero 
3; Cale offset to driver 
auxiliary name and store in vector 


: Assume non 


e 
Pick up possible UNIT DISC entry 
None specified, default to a zero 

3 Cale offset to driver 

UNIT_DISC point and store in vector 


+ Assume none 


Pick up possible device name 
None specified, default to a zero 


; Cale offset to device 


name and store in vector 


3; No driver in the driver table accepted this Q10 


~~ 
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00 O0F 764 400$: HALT 
OF 765 
OF 766 -END 
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